#!/usr/bin/perl

use 5.010;

sub process {
    my $char = shift;
    return chr($char + ord('a') - 1);
}

while (<>) {
    my @vals = split /,/;
    $vals[-1] = process($vals[-1]);
    print (join(',', @vals));
    say ".";
}
